Software of the Month Club 1997 January/Software of the Month Club 1997 January.iso/mac/Software Research Institute-SRI/Education/Extended Calculator II/Calculator programs/Simple Mirror Drawer

Text File | 1994-01-25 | 228 b | 14 lines | [TEXT/EcA1]

a:=HMouse;
b:=VMouse;
while(not(button));
    PPat(random(1,5));
    x:=HMouse;
    y:=VMouse;
    line(a,b,x,y);
    line(600-a,b,600-x,y);
    line(a,300-b,x,300-y);
    line(600-a,300-b,600-x,300-y);
    a:=x;
    b:=y;
end;